home *** CD-ROM | disk | FTP | other *** search
/ Utilities Professional 1-1500 / Utilities Professional 1-1500 (1994)(WPD)[!].iso / 12511500 / var1383.dms / var1383.adf / autoexec.amos / autoexec.amosSourceCode next >
AMOS Source Code  |  1992-06-20  |  10KB  |  221 lines
  1. Load "pictures-and-letters:samples.abk"
  2. Global MM
  3. Global AB$
  4. POTBLACK
  5. Procedure POTBLACK
  6. Screen Open 2,350,200,32,Lowres
  7. Curs Off : Hide : Set Talk ,,75,130
  8. Set Rainbow 0,1,16,"(1,1,15)","",""
  9. Rainbow 0,56,1,255
  10. Clear Key 
  11. Bell 50 : Locate 0,7 : Centre "  THIS PROGRAM WAS WRITTEN USING AMOS.  "
  12. Bell 50 : Pen 3 : Locate 0,18 : Centre "PRESS ANY KEY TO CONTINUE" : Wait Key 
  13. Cls : Pen 2 : Wait 20
  14. Say "will you type in your name please." : Wait 20 : Say "then press,enter, when you have finished." : Clear Key : Locate 2,7 : Input "TYPE IN YOUR NAME-";AB$ : Curs Off 
  15. Say "WELCOMBE To PictureS, and ,LETTORS,."+AB$+"."
  16. POTBLACK2
  17. End Proc
  18. Procedure POTBLACK2
  19.    Screen Open 2,350,200,32,Lowres
  20.    Set Rainbow 0,1,16,"(1,1,15)","",""
  21.    Rainbow 0,56,1,255
  22.    Curs Off : Hide 
  23.    Paper 8 : Pen 2
  24.    Bell 50 : Inverse Off : Locate 0,7 : Centre "     DO WANT THE MUSIC - Y/N.       "
  25.    MM=0
  26.    Clear Key 
  27. Do 
  28.    F$=Inkey$
  29.    If F$="y" Then Bell 50 : Locate 0,22 : Inverse On : Centre "PLEASE WAIT WHILE I LOAD YOUR MUSIC" : Goto ROCK
  30.    If F$="Y" Then Bell 50 : Locate 0,22 : Inverse On : Centre "PLEASE WAIT WHILE I LOAD YOUR MUSIC" : Goto ROCK
  31.    If F$="n" Then Goto CHOOSE
  32.    If F$="N" Then Goto CHOOSE
  33. Loop 
  34. ROCK:
  35.    Z=Rnd(4)
  36. Do 
  37.    If Z=1 Then Load "pictures-and-letters:black.abk" : MM=1 : Goto CHOOSE
  38.    If Z=2 Then Load "pictures-and-letters:ewok.abk" : MM=1 : Goto CHOOSE
  39.    If Z=3 Then Load "pictures-and-letters:lucky.abk" : MM=1 : Goto CHOOSE
  40.    If Z=4 Then Load "pictures-and-letters:yaz.abk" : MM=1 : Goto CHOOSE
  41.    If Z=0 Then Goto ROCK
  42. Loop 
  43. CHOOSE:
  44.    Screen Open 2,350,200,32,Lowres
  45.    Cls : Curs Off : Hide 
  46.    Set Rainbow 0,1,16,"(1,1,15)","",""
  47.    Rainbow 0,56,1,255 : Bell 50
  48.    Paper 9 : Pen 2
  49.    Hide : Curs Off : Paper 8 : Pen 2
  50.    Flash Off 
  51.    Paper 8 : Pen 2
  52.    Locate ,7 : Centre "PRESS K TO USE THE KEYBOARD"
  53.    Locate ,9 : Centre "OR"
  54.    Locate ,11 : Centre "PRESS M TO USE THE MOUSE"
  55.    Clear Key 
  56. Do 
  57.    Y$=Inkey$
  58.    If Y$="k" Then Goto TEST4
  59.    If Y$="K" Then Goto TEST4
  60.    If Y$="m" Then Goto TEST3
  61.    If Y$="M" Then Goto TEST3
  62. Loop 
  63. TEST4:
  64.    Cls : Rainbow Del 0 : Screen Close 2 : Goto KEYBOARD
  65. TEST3:
  66.    Cls : Rainbow Del 0 : Screen Close 2 : Goto MMOUSE
  67. MMOUSE:
  68.    Goto SETUP3
  69. Z_ONE:
  70.    Limit Mouse 182,195 To 389,266
  71.    Reserve Zone 26
  72.    Set Zone 1,58,160 To 72,175
  73.    Set Zone 2,78,160 To 93,175
  74.    Set Zone 3,100,160 To 116,175
  75.    Set Zone 4,120,160 To 136,175
  76.    Set Zone 5,141,160 To 157,175
  77.    Set Zone 6,162,160 To 177,175
  78.    Set Zone 7,181,160 To 197,175
  79.    Set Zone 8,202,160 To 216,175
  80.    Set Zone 9,222,160 To 237,175
  81.    Set Zone 10,242,160 To 256,175
  82.    Set Zone 11,54,181 To 74,198
  83.    Set Zone 12,79,181 To 95,198
  84.    Set Zone 13,100,181 To 116,198
  85.    Set Zone 14,120,181 To 136,198
  86.    Set Zone 15,141,181 To 157,198
  87.    Set Zone 16,162,181 To 177,198
  88.    Set Zone 17,181,181 To 197,198
  89.    Set Zone 18,201,181 To 217,198
  90.    Set Zone 19,222,181 To 237,198
  91.    Set Zone 20,78,204 To 94,221
  92.    Set Zone 21,99,204 To 115,221
  93.    Set Zone 22,120,204 To 136,221
  94.    Set Zone 23,141,204 To 157,221
  95.    Set Zone 24,161,204 To 177,221
  96.    Set Zone 25,181,204 To 197,221
  97.    Set Zone 26,201,204 To 217,221
  98.       Goto MMOUSE_SELECTION_SCREEN
  99. SETUP3:
  100.    Screen Open 0,320,200,32,Lowres
  101.    Load Iff "pictures-and-letters:wizard",0 : Goto Z_ONE
  102. MMOUSE_SELECTION_SCREEN:
  103.    Say "hello,."+AB$+",."+"if you hear this sound ." : Wait 5 : Sam Play 1 : Wait 45 : Say "you are not,pointing at a lettor, when you press, the mouse button." : If MM=1 Then Music 1
  104.    Inverse On : Locate 0,28 : Print : Centre "PRESS 9 FOR THE MAIN MENU"
  105.    Inverse On : Locate 0,29 : Print : Centre "PRESS 8 FOR A MUSICAL KEYBOARD"
  106.    Inverse On : Locate 0,30 : Print : Centre "POINT AT A LETTER AND PRESS A MOUSE KEY"
  107.    Clear Key 
  108. A=1
  109. Do 
  110. A=A+1
  111. If A=400 Then Sam Play 2 : A=1
  112.    A$="you have picked the lettor,       "
  113.    C$="this lettor is,       "
  114.    V$="well done, this is the lettor,       "
  115.    G$="lookk,it is the lettor,      "
  116.    B$=Inkey$
  117.    Z=Mouse Zone
  118.    K=Mouse Key
  119.    Show On 
  120.    If B$="9" Then POTOFF
  121.    If B$="(" Then POTOFF
  122.    If B$="*" Then RACKET
  123.    If B$="8" Then RACKET
  124.    If Z=1 and K<>0 Then Hide : A=1 : Load Iff "pictures-and-letters:picture q",1 : Say A$+"Q." : Wait 350 : Screen Close 1 : Screen To Front 0
  125.    If Z=2 and K<>0 Then Hide : A=1 : Load Iff "pictures-and-letters:picture w",1 : Say C$+"w." : Wait 350 : Screen Close 1 : Screen To Front 0
  126.    If Z=3 and K<>0 Then Hide : A=1 : Load Iff "pictures-and-letters:picture e",1 : Say V$+"e." : Wait 350 : Screen Close 1 : Screen To Front 0
  127.    If Z=4 and K<>0 Then Hide : A=1 : Load Iff "pictures-and-letters:picture r",1 : Say G$+"r." : Wait 350 : Screen Close 1 : Screen To Front 0
  128.    If Z=5 and K<>0 Then Hide : A=1 : Load Iff "pictures-and-letters:picture t",1 : Say A$+"t." : Wait 350 : Screen Close 1 : Screen To Front 0
  129.    If Z=6 and K<>0 Then Hide : A=1 : Load Iff "pictures-and-letters:picture y",1 : Say C$+"y." : Wait 350 : Screen Close 1 : Screen To Front 0
  130.    If Z=7 and K<>0 Then Hide : A=1 : Load Iff "pictures-and-letters:picture u",1 : Say V$+"u." : Wait 350 : Screen Close 1 : Screen To Front 0
  131.    If Z=8 and K<>0 Then Hide : A=1 : Load Iff "pictures-and-letters:picture i",1 : Say G$+"I." : Wait 350 : Screen Close 1 : Screen To Front 0
  132.    If Z=9 and K<>0 Then Hide : A=1 : Load Iff "pictures-and-letters:picture o",1 : Say A$+"O." : Wait 350 : Screen Close 1 : Screen To Front 0
  133.    If Z=10 and K<>0 Then Hide : A=1 : Load Iff "pictures-and-letters:picture p",1 : Say C$+"P." : Wait 350 : Screen Close 1 : Screen To Front 0
  134.    If Z=11 and K<>0 Then Hide : A=1 : Load Iff "pictures-and-letters:picture a",1 : Say V$+"aee." : Wait 350 : Screen Close 1 : Screen To Front 0
  135.    If Z=12 and K<>0 Then Hide : A=1 : Load Iff "pictures-and-letters:picture s",1 : Say G$+"S." : Wait 350 : Screen Close 1 : Screen To Front 0
  136.    If Z=13 and K<>0 Then Hide : A=1 : Load Iff "pictures-and-letters:picture d",1 : Say A$+"D." : Wait 350 : Screen Close 1 : Screen To Front 0
  137.    If Z=14 and K<>0 Then Hide : A=1 : Load Iff "pictures-and-letters:picture f",1 : Say C$+"F." : Wait 350 : Screen Close 1 : Screen To Front 0
  138.    If Z=15 and K<>0 Then Hide : A=1 : Load Iff "pictures-and-letters:picture g",1 : Say V$+"G." : Wait 350 : Screen Close 1 : Screen To Front 0
  139.    If Z=16 and K<>0 Then Hide : A=1 : Load Iff "pictures-and-letters:picture h",1 : Say G$+"H." : Wait 350 : Screen Close 1 : Screen To Front 0
  140.    If Z=17 and K<>0 Then Hide : A=1 : Load Iff "pictures-and-letters:picture j",1 : Say A$+"J." : Wait 350 : Screen Close 1 : Screen To Front 0
  141.    If Z=18 and K<>0 Then Hide : A=1 : Load Iff "pictures-and-letters:picture k",1 : Say C$+"K." : Wait 350 : Screen Close 1 : Screen To Front 0
  142.    If Z=19 and K<>0 Then Hide : A=1 : Load Iff "pictures-and-letters:picture l",1 : Say V$+"L." : Wait 350 : Screen Close 1 : Screen To Front 0
  143.    If Z=20 and K<>0 Then Hide : A=1 : Load Iff "pictures-and-letters:picture z",1 : Say G$+"Z." : Wait 350 : Screen Close 1 : Screen To Front 0
  144.    If Z=21 and K<>0 Then Hide : A=1 : Load Iff "pictures-and-letters:picture x",1 : Say A$+"X." : Wait 350 : Screen Close 1 : Screen To Front 0
  145.    If Z=22 and K<>0 Then Hide : A=1 : Load Iff "pictures-and-letters:picture c",1 : Say C$+"C." : Wait 350 : Screen Close 1 : Screen To Front 0
  146.    If Z=23 and K<>0 Then Hide : A=1 : Load Iff "pictures-and-letters:picture v",1 : Say V$+"V." : Wait 350 : Screen Close 1 : Screen To Front 0
  147.    If Z=24 and K<>0 Then Hide : A=1 : Load Iff "pictures-and-letters:picture b",1 : Say G$+"B." : Wait 350 : Screen Close 1 : Screen To Front 0
  148.    If Z=25 and K<>0 Then Hide : A=1 : Load Iff "pictures-and-letters:picture n",1 : Say A$+"N." : Wait 350 : Screen Close 1 : Screen To Front 0
  149.    If Z=26 and K<>0 Then Hide : A=1 : Load Iff "pictures-and-letters:picture m",1 : Say C$+"M." : Wait 350 : Screen Close 1 : Screen To Front 0
  150.    If Z<1 and K<>0 Then Sam Play 1 : Wait 40
  151.    If Z>26 and K<>0 Then Sam Play 1 : Wait 40
  152. Loop 
  153. KEYBOARD:
  154.    Screen Open 0,320,200,32,Lowres
  155.    Load Iff "pictures-and-letters:wizard",0 : Wait 55
  156.    Say "hello,."+AB$+",."+"if you hear this sound ." : Wait 5 : Sam Play 1 : Wait 45 : Say "you are not,pressing a lettor,          ,." : If MM=1 Then Music 1
  157. KEYBOARD2:
  158. GGG:
  159. A=1
  160.    Clear Key : Curs Off : Hide 
  161.    Inverse On : Locate 0,28 : Print : Centre "PRESS 9 FOR THE MAIN MENU"
  162.    Inverse On : Locate 0,29 : Print : Centre "PRESS 8 FOR A MUSICAL KEYBOARD"
  163.    Inverse On : Locate 0,30 : Print : Centre "NOW PRESS A KEY"
  164. Do 
  165. A=A+1
  166. If A=10000 Then Sam Play 2 : A=1
  167.    O$="this is the lettor       ."
  168.    H$="do you like this one, it is the lettor,      ."
  169.    D$="you have picked the lettor,        ."
  170.    W$="o good it is the lettor,        ."
  171.    V$="pictures-and-letters:Picture "
  172.    X$=Inkey$
  173.    If X$="9" Then POTOFF
  174.    If X$="(" Then POTOFF
  175.    If X$="*" Then RACKET
  176.    If X$="8" Then RACKET
  177. If X$="" Then Loop 
  178.    If X$<"A" Then Goto QUACK
  179.    If X$>"Z" Then Goto HHH
  180.    Goto JJJ
  181. HHH:
  182.    If X$<"a" Then Goto QUACK
  183.    If X$>"z" Then Goto QUACK
  184. JJJ:
  185.    Z=Rnd(4)
  186.    If Z=4 Then Gosub GUFF4 : Load Iff V$+X$,1 : X$="" : Goto TEST6
  187.    If Z=3 Then Gosub GUFF3 : Load Iff V$+X$,1 : X$="" : Goto TEST6
  188.    If Z=2 Then Gosub GUFF2 : Load Iff V$+X$,1 : X$="" : Goto TEST6
  189.    If Z=1 Then Gosub GUFF1 : Load Iff V$+X$,1 : X$="" : Goto TEST6
  190.    Goto GGG
  191. GUFF1:
  192.    Say O$+X$+"." : Return 
  193. GUFF2:
  194.    Say H$+X$+"." : Return 
  195. GUFF3:
  196.    Say D$+X$+"." : Return 
  197. GUFF4:
  198.    Say W$+X$+"." : Return 
  199. QUACK:
  200.    Sam Play 1 : Goto KEYBOARD2
  201. TEST6:
  202.    Wait 350
  203.    Screen Close 1 : Screen To Front 0 : Goto KEYBOARD2
  204. End Proc
  205. Procedure POTOFF
  206. Music Off : Screen Close 0 : Erase 3 : POTBLACK2
  207. End Proc
  208. Procedure RACKET
  209. Music Off : Erase 3 : Erase 5 : Load "pictures-and-letters:samples2.abk"
  210. Screen Open 2,356,256,16,Lowres : Cls : Curs Off : Hide : Screen Close 0
  211. Load Iff "pictures-and-letters:key",2
  212. Wait 20 : Say "hello,   ."+AB$+"."
  213. Do 
  214. M=Mouse Key
  215. A$=Inkey$
  216. A=Asc(A$)
  217. If A>96 and A<123 Then Sam Play A-96
  218. If A>64 and A<91 Then Sam Play A-64
  219. If M<>0 Then Erase 5 : Load "pictures-and-letters:samples.abk" : Screen Close 2 : POTBLACK2
  220. Loop 
  221. End Proc